home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / LgcyPlus / disk2 / FILEWDGT._ / FILEWDGT.
Encoding:
Text File  |  2001-03-02  |  802 b   |  23 lines
  1. 10    ! *************************************************
  2. 20    ! Example: FILE Widget
  3. 30    !
  4. 40    ! This program generates a FILE widget.
  5. 50    !
  6. 60    ! *************************************************
  7. 70    !
  8. 80    ASSIGN @File TO WIDGET "FILE";SET ("VISIBLE":0)
  9. 90    CONTROL @File;SET ("TITLE":" Example: FILE Widget")
  10. 100   CONTROL @File;SET ("DIRECTORY":"C:/DOC","PATTERN":"*.TXT")
  11. 110   CONTROL @File;SET ("SYSTEM MENU":"Quit")
  12. 120   CONTROL @File;SET ("X":100,"Y":50,"VISIBLE":1)
  13. 130   ON EVENT @File,"SELECTION" GOSUB Get_selection
  14. 140   ON EVENT @File,"SYSTEM MENU" GOTO Finis
  15. 150   LOOP
  16. 160     WAIT FOR EVENT
  17. 170   END LOOP
  18. 180 Get_selection: DIM File_name$[256]
  19. 190   STATUS @File;RETURN ("SELECTION":File_name$)
  20. 200   DISP File_name$
  21. 210   RETURN
  22. 220 Finis: END
  23.